• 可是要怎麼用？

• 經緯度跟坐標系對不攏？

• ＃！＾＄＆％＊＃％

首先來看看

• TWD97（台灣適用，較新）

• TWD67（台灣適用，較舊）

• WGS84（全球通用：經緯度）

把握一個重點：始終使用同一種座標系統

library(httr)
URL <- 'http://egis.moea.gov.tw/MoeaEGFxData_WebAPI_Inside/InnoServe/CodeSearchEcon/GetCount?'
QUERY <- list(x = 294129, y = 2774510)
res <- GET(url = URL, query = QUERY, encode = "json")
res

## Response [http://egis.moea.gov.tw/MoeaEGFxData_WebAPI_Inside/InnoServe/CodeSearchEcon/GetCount?x=294129&y=2774510]
##   Date: 2016-12-12 12:01
##   Status: 200
##   Content-Type: application/json;charset=utf-8
##   Size: 8.37 kB

str(content(res)[[1]][[1]]$properties)

## List of 4
##  $ BUSM_COUNT: int 123
##  $ CMPY_COUNT: int 1366
##  $ FACT_COUNT: int 4684
##  $ Code3     : chr "A650150019"

library(httr)
URL <- 'http://{secret-ip-address}/MoeaEGFxData_WebAPI_Inside/WebAPI/BizSite/Query?'
QUERY <- list(x = 302592, y = 2771367)
res <- GET(url = URL, query = QUERY, encode = "json")
res

## Response [http://{secret-ip-address}/MoeaEGFxData_WebAPI_Inside/WebAPI/BizSite/Query?x=302592&y=2771367]
##   Date: 2016-12-12 12:01
##   Status: 200
##   Content-Type: application/json;charset=utf-8
##   Size: 242 B

str(content(res)[[1]])

## List of 10
##  $ CODE3     : chr "A630040068"
##  $ LAND_VALUE: int 687000
##  $ LAND_ZONE : chr "商業區"
##  $ POI_A     : chr "建成國中"
##  $ POI_B     : chr "無"
##  $ POI_C     : chr "行政院"
##  $ POI_D     : chr "國父史蹟紀念館,台北當代藝術館"
##  $ POP_LABOR : int 1363
##  $ POP_SUM   : int 1955
##  $ TOWN_NA   : chr "臺北市中山區"